home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / conv / CPC.lha / InstallCPC < prev    next >
Text File  |  1997-10-02  |  3KB  |  154 lines
  1. ;
  2. ; $VER: InstallCPC v1.0 (22.09.97)
  3. ;
  4. ; Installation script for Code Page Converter made by Andrija Antonijevic
  5. ;
  6. ;   Copyright ©1997 Andrija Antonijevic <TheAntony@bigfoot.com>
  7. ;
  8. ;      All rights reserved
  9. ;
  10.  
  11. (if (= @language "srpski")
  12.     (
  13.         (set Where    "Gde biste hteli da instalirate Code Page Converter?")
  14.         (set WhereDoc    "Gde biste hteli da prekopirate dokumentaciju?")
  15.         (set What    "Ãta biste hteli da instalirate?")
  16.         (set WhatHelp
  17.             (cat "CPC je glavni program i trebalo bi da ga instalirate.\n\n"
  18.                  "CPC_English.guide je dokumentacija na engleskom (opciono).\n\n"
  19.                  "CPC_srpski.guide je dokumentacija na srpskom (opciono).\n\n"
  20.                  "CPC.catalog je neophodan ako hoáete da CPC bude "
  21.                  "na srpskom (opciono).\n\n"
  22.                  "CPC.dopus je ARexx skripta za DOpus 4 koji Vam omoguáava "
  23.                  "da pozivate CPC iz DOpus-a (opciono). Biáe prekopirana u REXX:\n\n"
  24.             )
  25.         )
  26.         (set NoLocale
  27.             (cat "CPC.catalog nije prekopiran jer na Vaãem sistemu "
  28.                  "ne postoji assign LOCALE:"
  29.             )
  30.         )
  31.         (set DefWhat 29)
  32.     )
  33. ;    else
  34.     (
  35.         (set Where    "Where would you like to install Code Page Converter?")
  36.         (set WhereDoc    "Where would you like to copy the documentation?")
  37.         (set What    "What would you like to install?")
  38.         (set WhatHelp
  39.             (cat "CPC is the main program and you should install it.\n\n"
  40.                  "CPC_English.guide is the documentation in English (optional).\n\n"
  41.                  "CPC_srpski.guide is the documentation in Serbian (optional).\n\n"
  42.                  "CPC.catalog is necessary if you want CPC to be in "
  43.                  "Serbian (optional).\n\n"
  44.                  "CPC.dopus is an ARexx script for DOpus 4 which makes "
  45.                  "using CPC from DOpus easier (optional). It will be copied to
  46.                  "REXX:\n\n"
  47.             )
  48.         )
  49.         (set NoLocale
  50.             (cat "CPC.catalog was not copied becouse there is no LOCALE: "
  51.                  "assign on your system."
  52.             )
  53.         )
  54.         (set DefWhat 3)
  55.     )
  56. )
  57.  
  58. (set CurrDir (pathonly @icon))
  59. (set WhereDocDir "Not set")
  60.  
  61. (set CPCDir 
  62.     (askdir
  63.         (prompt Where)
  64.         (help @askdir-help)
  65.         (default "C:")
  66.     )
  67. )
  68.  
  69. (set Choose
  70.     (askoptions
  71.         (prompt What)
  72.         (help WhatHelp)
  73.         (choices "CPC" "CPC_English.guide" "CPC_srpski.guide" "CPC.catalog" "CPC.dopus")
  74.         (default DefWhat)
  75.     )
  76. )
  77.  
  78. (if (bitand 1 Choose)
  79.     (copyfiles
  80.         (source "CPC")
  81.         (dest CPCDir)
  82.         (infos)
  83.     )
  84. )
  85.  
  86. (if (bitand 2 Choose)
  87.     (
  88.         (if (= WhereDocDir "Not set")
  89.             (set WhereDocDir
  90.                 (askdir
  91.                     (prompt WhereDoc)
  92.                     (help @askdir-help)
  93.                     (default "HELP:English")
  94.                 )
  95.             )
  96.         )
  97.  
  98.         (copyfiles
  99.             (source "CPC_English.guide")
  100.             (dest WhereDocDir)
  101.             (infos)
  102.         )
  103.     )
  104. )
  105.  
  106. (if (bitand 4 Choose)
  107.     (
  108.         (if (= WhereDocDir "Not set")
  109.             (set WhereDocDir
  110.                 (askdir
  111.                     (prompt WhereDoc)
  112.                     (help @askdir-help)
  113.                     (default "HELP:srpski")
  114.                 )
  115.             )
  116.         )
  117.  
  118.         (copyfiles
  119.             (source "CPC_srpski.guide")
  120.             (dest WhereDocDir)
  121.             (infos)
  122.         )
  123.     )
  124. )
  125.  
  126. (if (bitand 8 Choose)
  127.     ;then
  128.     (
  129.         (if (not (exists "LOCALE:" (noreq)))
  130.             ;then
  131.             (message NoLocale)
  132.             ;else
  133.             (
  134.                 (copyfiles
  135.                     (source (tackon CurrDir "Catalogs"))
  136.                     (dest "LOCALE:Catalogs")
  137.                     (all)
  138.                 )
  139.             )
  140.         )
  141.     )
  142. )
  143.  
  144. (if (bitand 16 Choose)
  145.     (copyfiles
  146.         (source "CPC.dopus")
  147.         (dest "REXX:")
  148.         (infos)
  149.     )
  150. )
  151.  
  152. (set @default-dest CPCDir)
  153. (exit)
  154.